home *** CD-ROM | disk | FTP | other *** search
/ Roboty / ROBOTS_CD.iso / qtchecker.dxr / 00013_interface events.ls < prev    next >
Encoding:
Text File  |  2005-04-28  |  835 b   |  42 lines
  1. global gCountry, ggameNum
  2.  
  3. on InterfaceEvent myEvent
  4.   case myEvent of
  5.     "VIDEO":
  6.       go("video")
  7.     "SCORES":
  8.       go(1, "scores")
  9.     "FINAL  MISSION":
  10.       go("Final_0")
  11.     "TRAINING GROUND":
  12.       go("Training")
  13.     "SELECT YOUR LANGUAGE":
  14.       go("Lang")
  15.     "EXIT":
  16.       fileio("Write")
  17.       if the runMode <> "Author" then
  18.         quit()
  19.       end if
  20.     "WWW.NIKEFOOTBALL.COM":
  21.       gotoNetPage("www.nikefootball.com")
  22.     "eng", "ger", "fre", "dut", "spa", "ita":
  23.       gCountry = myEvent
  24.       setLangcast()
  25.       fileio("Write")
  26.     "OK":
  27.       go(#next)
  28.     "Back":
  29.       go("Options")
  30.     "R_arrow":
  31.       if ggameNum = 4 then
  32.         ggameNum = 0
  33.       end if
  34.       go("G" & ggameNum + 1)
  35.     "L_arrow":
  36.       if ggameNum = 1 then
  37.         ggameNum = 5
  38.       end if
  39.       go("G" & ggameNum - 1)
  40.   end case
  41. end
  42.